Option Explicit
Function GetQryConstStr_DAO(myInt As Integer) As String
    Dim myStr As String
    Select Case myInt
        Case 0: myStr = "dbQSelect"
        Case 224: myStr = "dbQProcedure"
        Case 240: myStr = "dbQAction"
        Case 16: myStr = "dbQCrosstab"
        Case 32: myStr = "dbQDelete"
        Case 48: myStr = "dbQUpdate"
        Case 64: myStr = "dbQAppend"
        Case 80: myStr = "dbQMakeTable"
        Case 96: myStr = "dbQDDL"
        Case 112: myStr = "dbQSQLPassThrough"
        Case 128: myStr = "dbQSetOperation"
        Case 144: myStr = "dbQSPTBulk"
        Case 160: myStr = "dbQCompound"
        Case Else: myStr = ""
    End Select
    GetQryConstStr_DAO = myStr
End Function

Function GetQryConstNo_DAO(myStr As String) As Integer
    Dim myInt As Integer
    Select Case myStr
        Case "dbQSelect": myInt = 0
        Case "dbQProcedure": myInt = 224
        Case "dbQAction": myInt = 240
        Case "dbQCrosstab": myInt = 16
        Case "dbQDelete": myInt = 32
        Case "dbQUpdate": myInt = 48
        Case "dbQAppend": myInt = 64
        Case "dbQMakeTable": myInt = 80
        Case "dbQDDL": myInt = 96
        Case "dbQSQLPassThrough": myInt = 112
        Case "dbQSetOperation": myInt = 128
        Case "dbQSPTBulk": myInt = 144
        Case "dbQCompound": myInt = 160
        Case Else: myInt = -1
    End Select
    GetQryConstNo_DAO = myInt
End Function
